4 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
5 [143]"(null)         LIGHTS OUT!          (null)
6 REM"[221]     BY WALTER E. MEYERS      [221]
7 [143]"(null)      403 CARRIAGE LANE       (null)
8 REM"[221]      CARY, N.C. 27511        [221]
9 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
10 GOTO 600
20 POKE 198,0:WAIT 198,1:II=PEEK(631):POKE 198,0:RETURN
30 POKE S+5,136:POKE S+6,240:POKE S+1,20:POKE S+4,33:RETURN
40 POKE SC,11:POKE BO,11:PRINT"[147]";:FOR I=0TO22:PRINT"  [144]" M$(I):NEXT:RETURN
50 POKE 781,L(R):POKE 782,C(R):POKE 783,0:SYS 65520:PRINT LI$(L):LI(R)=L
60 POKE LC+R,L:RETURN
70 FOR CL=S TO S+24:POKE CL,0:NEXT:POKE S+24,15:RETURN
80 POKE S+6,240:POKE S+1,40:POKE S+4,17:FOR T=1TO3:NEXT:POKE S+4,16:RETURN
90 POKE 781,LN:POKE 782,CO:POKE 783,0:SYS 65520:RETURN
99 :
100 SC=53281:BO=53280:BN=56576:LC=49244:V=53248:POKE V+21,0:S=54272:GOSUB 70
110 P0=300:FORI=0TO9:READ C(I),L(I),HO(I),VE(I),VS(I):LI(I)=0:NEXT:POKE 785,104
120 POKE786,192:FORI=1TO5:READ GH(I):NEXT:FOR I=0TO7:READ A:POKE 52216+I,A:NEXT
130 FOR I=39TO46:READ A:POKE V+I,A:NEXT:FOR I=4TO16:READ A:POKE V+I,A:NEXT
140 FOR I=49256TO49275:READ A:POKE I,A:NEXT:POKE V+23,1:POKE V+27,2:POKE V+29,0
150 GS=15:GM=1:POKE V+21,4:GOSUB 500:TM=TI
160 K=1:GR(0)=0:GC=1:PR=0:G=0
170 N=INT(RND(1)*9+1):GR(K)=N:FOR I=0TOK-1:IF GR(K)=GR(I)THEN 170
180 NEXT:K=K+1:IF K<10 THEN 170
190 POKE V,HO(PR):POKE V+1,VE(PR):POKE V+16,VS(PR):POKE LC,1:POKE V+21,5
199 :
200 JOY=PEEK(56320)AND15:FIRE=PEEK(56320)AND16
210 IF JOY=11 THEN IF PR<>3ANDPR<>6ANDPR<>9 THEN PR=PR+1:POKE 52216,4:GOTO 260
220 IF JOY=14 THEN IF PR<7 THEN PR=PR+3:GOTO 260
230 IF JOY=13 THEN IF PR>3 THEN PR=PR-3:GOTO 260
240 IF JOY=7 THEN IF PR<>7ANDPR<>4ANDPR<>1 THEN PR=PR-1:POKE 52216,3:GOTO 260
250 IF FIRE=0 THEN IF PR>0 THEN R=PR:L=1:GOSUB 50:GOSUB 80
260 WIN=USR(0):IF WIN=1 THEN POKE V+21,5:GOTO 400
270 GOSUB 300:FOR T=1TO40:NEXT:POKE V,HO(PR):POKE V+1,VE(PR):POKE V+16,VS(PR)
280 GOTO 200
299 :
300 GC=GC+1:IF GC<GS THEN RETURN
310 GC=1:G=G+1:IF G=10 THEN G=1
320 POKE V+2,HO(GR(G)):POKE V+3,VE(GR(G))+14:POKE V+21,7:R=GR(G)
330 L=0:GOSUB 50:GOSUB 30:RETURN
399 :
400 GM=GM+1:IF GM>5 THEN 430
410 GS=GS-2:POKE V+40,GH(GM):POKE SC,GH(GM):POKE BO,GH(GM):FOR I=1TO10:NEXT
420 POKE SC,11:POKE BO,11:L=0:FOR R=1TO9:GOSUB 50:NEXT:GOTO 160
429 :
430 P1=(TI-TM)/60:P2=INT(P1/60):P3=INT(P1-(P2*60)):LN=21:CO=5:GOSUB 90
440 POKE 52216,5:PRINT"YOUR TIME:" P2 "MIN.," P3 "SEC.":IF P1<P0 THEN P0=P1
450 B2=INT(P0/60):B3=INT(P0-(B2*60)):LN=22:CO=5:GOSUB 90:PRINT"BEST TIME:";
460 PRINT B2 "MIN.," B3 "SEC.":LN=23:CO=2:GOSUB 90:PRINT"HIT Q TO QUIT, ";
470 PRINT"ANY OTHER KEY TO PLAY.":GOSUB 20:POKE V+21,0:IF II=81 THEN 490
480 GOTO 150
490 POKE 648,4:POKE 53272,21:POKE BN,199:POKE SC,6:POKE BO,14:PRINT"[147][154]":END
499 :
500 PRINT"[147]":POKE BN,PEEK(BN)AND 252:POKE 648,200:GOSUB 40:POKE V+24,44
510 FOR T=1TO2000:NEXT:R=9:L=0:POKE S+5,6:POKE S+6,255:POKE S+4,23:VO=15
520 FORK=1TO5:F1=20:POKE S+24,2:F1=20:POKE S+24,2:FOR J=1TO6:POKE S+24,VO:F2=20
530 POKE S+1,F1:FOR I=1TO4:POKE S+15,F2:F2=F2*1.02:NEXT:F1=F1*1.2:VO=VO-2:NEXT
540 GOSUB 50:POKE V+21,6:POKE V+2,HO(R):POKE V+3,VE(R)+14:R=R-1:POKE S+24,15
550 FOR J=1TO8:F2=20:POKE S+1,F1:FOR I=1TO3:POKE S+15,F2:F2=F2/1.2:NEXT
570 F1=F1/1.5:NEXT:VO=15:IF R>0THENGOSUB50:POKEV+2,HO(R):POKEV+3,VE(R)+14:R=R-1
580 NEXT:POKE S+6,15:GOSUB 70:POKE V+21,254:FOR K=1TO30:FOR J=6TO14STEP2
590 POKE V+J,INT(RND(1)*(255-40)+40):POKE V+J+1,INT(RND(1)*(200-50)+50)
595 NEXT:NEXT:POKE V+21,4:POKE 52216,4:RETURN
600 POKE 53281,15:PRINT"[147][144] INSERT A JOYSTICK IN PORT TWO. HIT ANY "
610 PRINTTAB(12)"KEY WHEN READY.":GOSUB 20
620 J=56334:FOR I=49152TO49184:READ A:POKE I,A:NEXT:POKE J,PEEK(J)AND 254
630 POKE 1,PEEK(1)AND 251:SYS 49152:POKE 1,PEEK(1)OR 4:POKE J,PEEK(J)OR 1
640 READ A:IF A=-1 THEN 660
650 FOR I=0TO7:READ B:POKE 61440+A*8+I,B:NEXT:GOTO 640
660 FOR I=0TO319:READ A:POKE 49344+I,A:NEXT
699 :
700 DIM M$(23),IN$(4):M$(0)="[157][][][][][][][][][][][][][][][]":M$(2)=M$(0)
710 M$(1)="[157]][][][][][][][][][][][][][][]["
720 M$(3)="[144][201][202][193][194][195][196][197][198][202][202][202][193][194][195][196][197][198][202][202][202][193][194][195][196][197][198][202][203]"
730 M$(4)="[201][202][199][158] [162]  [144][200][202][202][202][199][158] [172][187] [144][200][202][202][202][199][158][172][162][162][187][144][200][202][203]"
740 M$(5)="[201][202][199][158] @  [144][200][202][202][202][199][158] [146][161][161] [144][200][202][202][202][199][158][146][161][161][188][190][144][200][202][203]"
750 M$(6)="[201][202][199][158] @  [144][200][202][202][202][199][158] [146][161][161] [144][200][202][202][202][199][158][146][161][161][146][187][161][144][200][202][203]"
760 M$(7)="[201][202][199][158] [146][162][162] [144][200][202][202][202][199][158] [188][190] [144][200][202][202][202][199][158][188][146][162][162][190][144][200][202][203]"
770 M$(8)="[201][202][208][209][209][209][209][210][201][202][203][208][209][209][209][209][210][201][202][203][208][209][209][209][209][210][202][203]":M$(9)=M$(3)
780 M$(10)="[201][202][199][158][172][187][172][187][144][200][202][202][202][199][158][172][162][162][187][144][200][202][202][202][199][158][172][162][162][187][144][200][202][203]"
790 M$(11)="[201][202][199][158][146][161][188][190][161][144][200][202][202][202][199][158] [146][161][161] [144][200][202][202][202][199][158][146][161][188][162][187][144][200][202][203]"
800 M$(12)="[201][202][199][158][146][161][161][146][161][161][144][200][202][202][202][199][158] [146][161][161] [144][200][202][202][202][199][158]  [146][161][161][144][200][202][203]"
810 M$(13)="[201][202][199][158][188][190][188][190][144][200][202][202][202][199][158] [188][190] [144][200][202][202][202][199][158][188][146][162][162][190][144][200][202][203]"
820 M$(14)="[201][202][208][209][209][209][209][210][201][202][203][208][209][209][209][209][210][201][202][203][208][209][209][209][209][210][202][203][][][][]"
830 M$(15)="[144][201][202][193][194][195][196][197][198][202][202][202][193][194][195][196][197][198][202][202][202][193][194][195][196][197][198][202][203]][][][]["
840 M$(16)="[201][202][199][158][172][162][162][187][144][200][202][202][202][199][158][172][187][172][187][144][200][202][202][202][199][158][172][162][162][187][144][200][202][203][213][214][146]  [215][216][200]"
850 M$(17)="[201][202][199][158][146][161][161][146][161][161][144][200][202][202][202][199][158][146][161][161][146][161][161][144][200][202][202][202][199][158] [146][161][161] [144][200][202][203][146]      [200]"
860 M$(18)=M$(17):M$(19)="[201][202][199][158][188][146][162][162][190][144][200][202][202][202][199][158][188][146][162][162][190][144][200][202][202][202][199][158] [188][190] [144][200][202][203][146]      [200]"
870 M$(20)=M$(8)+"[211][211][211][211][211][211][200]":M$(21)="[201][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][203][212][212][212][212][212][212][200]"
880 M$(22)="[201][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][203]"+"       [184]"
890 L$="[][][157][157][157][157]<><>[157][157][157][157][][][157][157][157][157]<><>":LI$(0)="[146][144]"+L$:LI$(1)="[158]"+L$:GOTO100
899 :
900 DATA 169,0,133,251,133,253,169,208,133,252,169,240,133,254,162,16,160
901 DATA 0,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96
907 :
1000 DATA 0,255,255,255,255,255,255,255,255
1001 DATA 27,255,128,128,128,128,128,128,128
1002 DATA 29,255,1,1,1,1,1,1,1
1003 DATA 60,128,128,128,128,128,128,128,128
1004 DATA 62,1,1,1,1,1,1,1,1
1005 DATA 128,0,0,0,0,0,0,0,0
1006 DATA 155,0,127,127,127,127,127,127,127
1007 DATA 157,0,254,254,254,254,254,254,254
1008 DATA 158,255,231,195,129,231,231,231,103
1009 DATA 188,127,127,127,127,127,127,127,127
1010 DATA 190,254,254,254,254,254,254,254,254
1011 DATA 193,0,255,14,240,199,159,62,0
1012 DATA 194,15,240,7,254,252,0,127,0
1013 DATA 195,128,60,249,3,243,121,28,0
1014 DATA 196,1,60,159,192,207,158,56,0
1015 DATA 197,240,15,224,127,63,0,254,0
1016 DATA 198,0,255,112,15,227,249,124,0
1017 DATA 199,140,206,134,150,146,154,152,156
1018 DATA 200,49,115,97,105,73,89,25,57
1019 DATA 201,0,127,0,255,255,255,255,255
1020 DATA 202,0,255,0,255,255,255,255,255
1021 DATA 203,0,254,0,255,255,255,255,255
1022 DATA 208,0,63,159,192,255,255,255,255
1023 DATA 209,0,255,255,0,255,255,255,255
1024 DATA 210,0,252,249,3,255,255,255,255
1025 DATA 211,255,255,255,60,60,24,60,60
1026 DATA 212,126,126,126,60,60,24,60,255
1027 DATA 213,255,135,156,176,224,240,240,224
1028 DATA 214,254,128,0,0,0,0,0,0
1029 DATA 215,127,1,0,0,0,0,0,0
1030 DATA 216,255,225,57,13,7,15,15,7
1031 DATA -1
1099 :
1100 DATA 0,0,0,0,0,0,0,0,0
1101 DATA 0,0,0,0,0,0,0,0,0
1102 DATA 0,0,0,0,0,0,0,0,0
1103 DATA 0,0,0,1,255,192,3,255,224
1104 DATA 3,255,240,1,255,192,1,254,0
1105 DATA 7,255,192,15,255,224,15,255,240
1106 DATA 15,255,240,7,255,240,3,255,224,0
1109 :
1110 DATA 0,0,0,0,0,0,0,0,0
1111 DATA 0,0,0,0,0,0,0,0,0
1112 DATA 0,0,0,0,0,0,0,0,0
1113 DATA 0,0,0,3,255,128,7,255,192
1114 DATA 15,255,192,3,255,128,0,127,128
1115 DATA 3,255,224,7,255,240,15,255,240
1116 DATA 15,255,240,15,255,224,7,255,192,0
1119 :
1120 DATA 0,0,0,0,0,0,0,0,0
1121 DATA 0,0,0,0,0,0,0,254,0
1122 DATA 1,255,0,15,165,240,62,0,124
1123 DATA 120,0,30,248,255,31,249,255,159
1124 DATA 253,255,191,124,255,62,62,126,124
1125 DATA 63,255,252,31,255,248,15,255,240
1126 DATA 15,255,240,15,255,240,7,255,224,0
1129 :
1130 DATA 0,126,0,1,255,128,7,255,224
1131 DATA 15,255,240,28,24,56,30,24,120
1132 DATA 31,153,248,25,255,152,28,126,56
1133 DATA 30,0,120,31,0,248,15,129,240
1134 DATA 15,231,240,7,255,224,7,255,224
1135 DATA 3,255,192,3,255,192,1,255,128
1136 DATA 0,255,0,0,126,0,0,24,0,0
1139 :
1140 DATA 1,255,128,7,255,224,31,255,248
1141 DATA 63,255,252,127,255,254,127,255,254
1142 DATA 255,255,255,255,255,255,255,255,255
1143 DATA 255,255,255,255,255,255,127,255,254
1144 DATA 127,255,254,63,255,252,31,255,248
1145 DATA 7,255,224,1,255,128,0,0,0
1146 DATA 0,0,0,0,0,0,0,0,0,0
1199 :
1200 DATA 30,16,16,169,5, 23,16,213,169,4, 14,16,140,169,4, 5,16,67,169,4
1201 DATA 23,10,213,121,4, 14,10,140,121,4, 5,10,67,121,4, 23,4,213,73,4
1202 DATA 14,4,140,73,4, 5,4,67,73,4
1209 :
1210 DATA 3,10,13,14,1,6,6,7,6,6,6,6,6,0,3,15,8,10,14,13,7
1219 :
1220 DATA 60,65,12,65,60,60,140,121,140,121,140,121,4
1229 :
1230 DATA 160,0,185,93,192,240,12,200,192,9,208,246,160,1,169,0,108,5,0,96
4999 :
5000 CC=0:FOR I=49152TO49184:READ A:CC=CC+A:NEXT
5010 IF CC<>5966 THEN PRINT"ERROR IN LINES 900-901":STOP
5020 PRINT"FONT LOADER OK":CC=0
5030 READ A:CC=CC+A:IF A=-1 THEN 5050
5040 GOTO 5030
5050 IF CC<>37856 THEN PRINT"ERROR IN LINES 1000-1031":STOP
5060 PRINT"CHARACTER DATA OK":FOR I=0TO4:CC(I)=0:NEXT
5070 CS(0)=5083:CS(1)=4895:CS(2)=7035:CS(3)=6822:CS(4)=10317
5080 FOR J=0TO4:FOR I=0TO63
5090 READ A:CC(J)=CC(J)+A:NEXT
5100 NEXT:FOR I=0TO4
5110 IF CC(I)<>CS(I) THEN PRINT"ERROR IN LINES"1100+I*10"TO"1106+I*10:STOP
5120 PRINT"SPRITE"I+1"OK"
5130 NEXT:CC=0
5140 FOR I=1TO104
5150 READ A:CC=CC+A
5160 NEXT:IF CC<>6382 THEN PRINT"ERROR IN LINES 1200-1230":STOP
5170 PRINT"ALL DATA OK"